Including plot from plotly in Rmd

p2 <- plot_ly(data.long, x = ~value, color = ~variable, type = "box")
p2
## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels

## Warning in RColorBrewer::brewer.pal(N, "Set2"): minimal value for n is 3, returning requested palette with 3 different levels

3D plot

Just noise

m <- matrix(rnorm(50*50), 50, 50)
p4 <- plot_ly(x = 1:50, y=1:50, z = m) %>% add_surface()
p4

Make this plot

Density of two dimensional Gaussian distribution